home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 19
/
CU Amiga Magazine's Super CD-ROM 19 (1998)(EMAP Images)(GB)[!][issue 1998-02].iso
/
CUCD
/
Utilities
/
BlacksEditor
/
Rexx
/
NumberLines.bed
< prev
next >
Wrap
Text File
|
1997-11-25
|
591b
|
43 lines
/*
** $VER: NumberLines.bed 1.0 (02.01.96)
**
** Add number lines to the selected block or to the whole document
**
** Modified by Marco Negri
*/
OPTIONS RESULTS
SetInputLock ON
SetDisplayLock ON
GetBlkDims
PARSE VAR RESULT mode . first . last
IF mode = OFF THEN DO
GetFileInfo
num = WORD(RESULT,1)
first = 0
END; ELSE DO
num = last - first + 1
END
SetBookmark 0
SetStatusBar "Adding line numbers..."
Move LINE first
pad = LENGTH(num)
DO i=1 TO num
MoveSOL
Text '"' || RIGHT(i,pad,' ') || ':"'
MoveDown
END
MoveBookmark 0
ClearBookmark 0
SetDisplayLock OFF
SetInputLock OFF